home *** CD-ROM | disk | FTP | other *** search
/ Belgian Amiga Club - ADF Collection / BS1 part 65.zip / BS1 part 65 / Math Visin v2.1 disk 1.adf / Arexx.WB / Contour / EnterZoom < prev    next >
Text File  |  1992-02-12  |  1KB  |  32 lines
  1. /* EnterZoom  Enter Screen Coordinates as center and zoom  20-Nov-89 dh */
  2.  
  3. /* This program allows you to enter the coordinates of the screen in the
  4. popular "Mandelbrot" format, which gives the coordinates of the center of
  5. the screen, and the zoom.  The zoom is considered the inverse of the radius
  6. of the largest circle which could fit in the screen.  Since most screens 
  7. are not square, the aspect ratio of the screen is calculated using the
  8. numbers entered below, and the X values are adjusted accordingly so as to
  9. give a true aspect ratio in the picture. */
  10.  
  11. ScreenWidth = 10.25  /* dimensions of your monitor's screen */
  12. ScreenHeight = 7  /* assuming wider than tall */
  13.  
  14. /*------------------------------------------------------------------------ */
  15.  
  16. ADDRESS "MathVision"
  17. OPTIONS RESULTS
  18. NUMERIC DIGITS 14
  19.  
  20. OPTIONS PROMPT "Enter XCENTER YCENTER ZOOM: "
  21. PULL xcenter ycenter zoom
  22.  
  23. zoom = 1/zoom
  24.  
  25. ymin ycenter-zoom
  26. ymax ycenter+zoom
  27. aspect_ratio = ScreenWidth/ScreenHeight
  28. xmin xcenter-zoom*aspect_ratio
  29. xmax xcenter+zoom*aspect_ratio
  30.  
  31. EditScreenToFront
  32.